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INTRODUCTION 


This document describes the virtual machine used to iaplement 
81000 Pascal. The first sections of the document present the 
overalt structure of the virtual machine. These are followed by 
a detailed description of each of the operators. The virtual 
machine is also called the Semachine and the operators S“ops-» 
Here "SS" is for soft or software. 


The Pascat S“machine is reatized on the 981000 through an 
interpreter. Like SDL» Cobol» and Fortran» Pascat has its own 
interpreter. The interpreter is written in MIL» the 81000 Micro 
Implementation Language. 


The Pascal virtual machine is a stack machine. Storage 1s 
composed of a single stack and a heap plus read-only areas for 
the virtual code and the constant pool. 


The stack and the heap start at opposite ends of memory and grow 
toward each other. The stack is composed of activation records» 
one for every procedure which is active. Fach activation record 
consists of a return linkage area» a parameter storage area» a 
local variable storage area» and an expression evaluation stack. 
The heap is the collection of cetls pointed to by Pascal pointer 
variables. It is initially empty» but cells may be allocated by 
the Pascal NEW procedure. 


RELATED QOCUMENTS 
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REGISTERS 

BeR A scratchpad register which contains the absolute 


CONST 


CURRENT.LINE 


DISPLAY 


HE APTOP 
LL 


NIP 


memory address of the base of the memory that 15 
allocated to this program. This scratchpad has 
the same value as the base register» BR. The 
value can be used in computations easier in a 
scratchpad register. A base relative address is 
an offset from this value. 


The base relative address of the base of the lLocat 
variables. 8B is a copy of the display register 
associated with the current lexic level. 


The base relative address of the base of the 


constant pool. CONST is not a scratchpad 
register. It is a vatue in memorye [t is located 
at an offset of 144 bits or 6 words from Gp» the 
global base registere 


The source tine number which corresoonds to the 
code being executeds 


A group of 7? #scratchpad registers which are 


treated 4s an array of registers. The registers 
are indexed from 1 to 7 and correspond to the base 
address of the variabt 0 he acti -scedures 


a exic-tevets -1 through. .7-. The G register 
serves as DISPLAY (€01] and the 8 register is a copy 


of CISPLAY {LL]» where LL is “the current texic 
Siena 
Level - 


The base relative address \ the base of the 
glodal varibles. The G register can be thought of 
as being the zeroth element of the disptay array. 
For a particular program its value does not change 
fike the other display registers» thus it is not 
treated internally as part of the display array. 


The base relative address of the next available 


Location at-the top of the heape 
The number of the current lLexic level. Lexic 


levels can range from 0 to 7. 


The next instruction pointer. The NIP is an 
absolute address that points to the location 
Within a code segment where the next instruction 
is to be reade — 


The base relative address of the next available 


location at the too of the stacke. 
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STACK.TOP Logically the 24 bit item which is | the ye top of the 
stacks The tapof the stack is maintained in a_ 


This. 


‘Tegister 9 cut 


register is mana 
is full anda new 


y_the compiler. If STACK tap j | 7 
item needs to be pushed onto the stack» then the 


compiler generates code that first pushes 
STACK.TOP into the memory portion of the stack 
before taading STACK.TOP with the new value. 
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MEMORY ORGANIZATION 


{ Environment | 

I Structure { 

{ Nucteus 1 
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1 1 Globat Info { 

Global J were sews eee cw ence sann| 

Activation 1 Global Variables .§ ! 
Record j moa eweesc ces anencaocesn {+ 

I ft Evaluation Stack i 
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G Cglobal base) 
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“Intermediate texic 


levels 


CISPLAY Cn] 


8B Clocal base) 


SP 


Available memory 


HEAPTOP 


CONST 


Base Register 
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STACK FORMAT 


Thera are basically three different kinds of iteas that make up 
the stack.. These are data or variables» expressions which 
includes parameters» and Linkage information. The formats for 
each of these items is described below. 


Variables | 


The different kinds of variables and the amount of memory 
allocated are listed below. 


real ‘4B>bits total 


7th bitso: filler 
bit ‘At sign (1 is negative) 

9 bits “3 binary exponent in excess 256 notation 
SS? Gsppits : “normalized mantissa _ 


2% 
other scalars 24 bits 


es 


two's complement signed integer vatue 


pointer types 24 bits unsigned base relative bit address 


set types 256 bits 2 i ins means bit Ci) = 1 
fite types first two fields only present for text files 
16 bits : bit offset of last character in buffer 
16 bits + bit offset of current character in buffer 
16 bits =: bit Length of buffer 
1 bit : defined boolean 
1 bit * end of file boolean 
6 bits : fite number 
n bits : file Suffer variable Caddress of file 


points here) 


record and array types 
amount of space required rounded up to an integral 


i! 
number of bytes —- 


fieids inside packed structures 
scalars other than reals =: number of bits required for value 
if signed then two's complement 
bits = largest value of base type 
@xact amount of space required 


sets 
records and arrays 


. 
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Exaressions 


When variables are toaded as expressions onto the evaluatian 
stack the size on the evaluation stack is not necessarily the 
same as the size of the variable. In particulars any fields that 


are smaliler-than 24 bits are toaded as 24 bit quantities onto the 
Stacke The following types of items appear as expressionse 


word > 24 bits Cintegerss» scalar» and address values) 
real 3 48 bits Cftloating point values) 

field s 24 bits (Cpacked integer and scalar values) 

set = 256 bits (set values» possibly packed) 


structure 


Linkage Inforcsation 


The procedure linkage information is a structure with the 
following fields. Part of the structure is built by the CALL 
operator and the rest is built by the ENTER operator. 


return displacement 24 bits (CALL) 
return segment number 16 dits C CALL ) 


current wexic bevel ———————_i_F Bits) CENTER) 
local base Cdisplay (Cit]) 24 bits CENTER) 
stack pointer restore value 24 bits CENTER) 
peocedure tine nusbder 24 bits. CENTER) 


oo 680 be 6 se 60 


HEAP FORMAT 


The heap is a stacketlike structure composed of data items of 
various sizes. The items are pointed to by Pascal ° 

i are allocated at the top of the heap by the procedure 
NEWe The heap is cut back to a previous point by the procedure 
RELEASE. Previousty allocated items that lie above the release 


point are no tonger valid. 


rounded up to nearest byte Carray and record values) 
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CONSTANT POOL 


The constant poot is a fixed area of memory within a program's 
run structure which contains all string and set constant se The 
contents of the gool are set up as a data segment by the compiter 
and the operating system initializes the base of memory with this 


data segment at the beginning of tne program. The constants are 
referenced by offset from the CONST register. Data in the 


constant pool is never modified. 


The first few dytes of the data segment that contains the 
constants are reserved. This area is used as data space _ (for 
interpreter variables. The constants start just after this area. 


4~i 
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CODE SEGMENTATION 


The Pascal object code is broken into segments by the compiler. 
These segments of code are brought in from disk and piaced at 
availabie areas in memory by the operating system at the request 
of the interpreter. The code does not reside between the base 
and Limit registers of a program. 


The code in a Pascal code file is always an byte boundaries. 
Addresses can be referenced by byte offsetse A code address is a 
24 bit number with the first 10 bits being the segment number and 
the last 14 bit into th mente. Pascal code 
files have a one Levet segment dictionary.e. The maxigum nuaber of 
segments in a Pascat code file is 1024. The maximum size of each 
segment is 16384 bytes or 131072 bits. 


The compiler automaticaily seguents the code file. A particular 


procedure always resides within a singie segment. Calls and 
exits are the only operators that’require segment switching. 


Seam 


Call ex t 


Plea | 
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OPERATORS 


Operators whose mnemonic ends in Ll» 2» or 3 have three different 
formatse The 1l» 2» or 3 refers to the number of bytes that the 
first operand has. 


Some operators have twin operators whose anemonic begins with a 
"pop". These twin operators perform the same functions but they do 
one extra thinge. They first push the STACK.~TOP register into the 
memory portion of the stack. The "p"™ stands for push. 


In general» parameters named “Length” are lengths in bits. 


Parameters named “offsets "displacement "> or “size” are in 
b e The operator description wilt indicate bits or bytese 


Parameters that are in bytes are usually converted to bits by the 
interpreter before being used. 


The format of each instruction is shown as a diagram in_ the 
following sections. The number under each field in the diagrams 
is the length in bits of that fietde 


LOAD ADDRESS OPERATORS 


Load Constant Address 


Cldcaddri = 1) 
Ctdcaddr2 = 2) 
({deaddr3 = 3) 
(pcaddri = 4) 
Cpeaddr2 = 5) 
Cpcaddr3 = 6) 

i Op 1 Offset I 

8 8 or 16 or 24 


The address of a constant at <Offset> bytes from the base of the 
constant pool is pushed onto the stack as a worde. The address is 
computed by adding <Offset> to CONST. The pcaddr operators first 


push STACK.TOP into the memory portion of the stacks 


se] 
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Load Local Address 


C{dladdri.= 7) 
Cldladdr2 = 8) 
Cidladdr3 = 9) 
Cpladdrl = 10) 
Cpltaddr2 = 11) 
Cpladdr3 = 12) 

| Op 1 Qffset j 

8 8 or 16 or 24 
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The address of a variable at <0ffset> bytes from the base of the 
the local variables is pushed onto the stack as a worde The 


address is computed by 
operators first push STACK.TOP into the 


stack. 


Load Global Adgress 


Cldgaddri = 13) 
Cidgaddr2 = 14) 
(ldgaddr3 = 15) 
(pgaddril = 16) 
(pgaddr2 = 17) 
(pgaddr3 = 18) 

1 Gp 1 Offset j 

8 8 or 16 or 24 


to 8B. The ptladdr 


memory portion of the 


The address of a variable at <Offset> bytes from the base of the 
the global variables is pushed onto the stack as a worde The 


address is computed by 
operators first push STACK.TOP 


Stack. 


( 


to Ge The pgaddr 


memory portion of- the 
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Load Lexic Level Address 


Cldliaddri = 19) 
Cidiladdr2 = 20) 
(iditaddr3 = 21) 
Cpltaddri = 22) 
(pitladdr2 = 23) 
Cplladdr3 = 24) 
i Qp | Offset 1 bLexic Level ! 
8 8 or 16 or 24 8 


The address of a variable at <Offset> bytes from the base of thea 
the <Lexic Level> variables is pushed onto the stack as a word. 
The address iS computed by adding <Offset> to DISPLAY {fLexic 
Levell. The plladdr operators first push STACK.TOP into the 
memory portion of the stack. 


LOAD WORD QPERATORS 


Load Constant Word 


Clidewordi = 25) 
Cldeword2 = 26) 
(t{deword3 = 27) 
Cpcewordi = 28) 
{peword2 = 29) 
Cpcwords = 390) 

! Gp 1 Value J 


8 8 or 16 or 24 


<Value> is pushed onto the stack as a word. The sign is extended 
i ecessaryey The pcword operators first push STACK-TOP into the 
me@ory portion of the stack. 
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Load Local Word 


Clidtwordil = 31) 

Clidtword2 = 32) 

Cldlword3 = 33) 

Cpltlwordit = 34) 

Cplword2 = 35) 

Cplword3 = 36) 
1 Qp ii Offset ! 
8 8 or 16 or 24 


The value of a variable at <Offset> bytes from the base of the 
the local variables is pushed onto the stack as a words The 
address is computed by adding <Qffset> to 8B. The plword 
operators first push STACK.TOP into the memory portion of the 
Stacke 


Load Global Word 


Ctdgwordl = 37) 
Cldgword2 = 38) 
Cldgword3 = 39) 
{pgwordl = 49) 
Cogword2 = 41) 
Cpgword3 = 42) 

i dp 3 Offset j 

8 8 or 16 or 24 


The vatue of a variable at <Offset> bytes from the base of the 
the global variables is pushed onto the stack as a word. The 
address is computed by adding <Offset> to 4G. The pgword 
operators first push STACK.TOP into the memory portion of the 
Stack. 
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Load Lexic Level Word 


CtUdttwordl = 43) 
Ctdllword2 = 44) 
Cidltword3 = 45) 
Cpltwordl = 46) 
Cpltword2 = 47) 
Cpltword3 = 48) 
i! dp ! Offset ! tLextc Level 1! 
8 8 or 16 or 24 8 


The vatue of a variable at <Offset> bytes from the base of the 
the <Lexic Level> variables is pushed onto the stack as a word. 
The address is computed by adding <Offset> to DISPLAY [CLexic 
Level]. The pllword operators first push STACK.TOP into the 
memory portion of the stack. 


Load Lodirect Word 


Cloadind = 49) 


{ Op 43 


8 


The word on the top of the stack is the address of a variable. 
This address is popped off the stack and the variable it points 
to is pushed onto the stack as a word. 
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Load Unsigned Field 


Cloadufieltd = 50) 


l Op J Length 1 


8 8 


The word on the top of the stack is the address of a field within 
a variable. This address is popped off the stack and the field 
it points to for <Leangth> bits is pushed onto the stack as a 
word. The field is treated as unsigned. 


Load Signed Eield 
Cloadsfield = 51) 


l Op 1 Length { 


8 8 


The word on the top of the stack is the address of a field within 
a variable. This address is popped off the stack and the field 
it points to for <Length> bits is pushed onto the stack as a 
word. The field is sign extended on the stack. 


LOAD NONTWORD OPERATORS 


Push airusture 


Cpushstruct = 52) 


§' Op t Length 1 


8 24 


The word on the top of the stack is the address of a structured 
variable. This address is popped off the stack and the data it 
points to for <Length> bits is pushed onto the stack. The data 
on the stack is padded such that the size is an integrat mumber 
of bytes. 
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Push Real 


Cpushreal = 53) 


1 Op ! 


8 


The word on the top of the stack is the address of a real 
variable. This address is popped off the stack and the real 
variable it points to is pushed onto the stack as a two werd real 
valuee 


Push Real Constant 


Cpushreakconst = 142) 


i Qp 1 Value | 


8 48 


<Vatue> is pushed onto the stack as a two word real value. 


Push set 


Cpushset = 54) 


{ Qp t Length 1 


8 24 


The word on the top of the stack ts the address of a set. This 
address is popped off the stack and the set it points to for 
<Length> bits 1s pushed onto the stack as a sete The set on the 
Stack is padded with enough zeroes to make the resulting length 
256 bitse 
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ADDRESS MODIFICATION OPERATORS 


EFieid 
C(fieldl = 55) 
Cfield2 = 56) 
Cfield3 = 57) 
| Op Offset ; 
8 8 or 16 or 24 
The word on the top of the stack is an address. This address is 


incremented by <Offset> bits. 


fodex 
Cindex = 58) 
ae Rare 
1 Qp t Min Jt Max : Min § Element Length 1 
8 24 2h x 24 


The word on the tap of the stack is an\ index: into an arraye The 
word at top-l is thejaddréss jaf the beginning of the array. The 
index is popped from the stack and normalized. to 0 by subtracting 
“<Min>. If the resutting index is less than 0 or greater than 
<Max ° Min> then an index out of range error is reported. If 
there is no error» then the normalized index is multipled by the 
<ELement Length> (bits) and the address on the top of the stack 
is incremented by this amount. 
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STORE WORD OPERATORS 


tere Local Word 


(stlwordi = 63) 
Cstlword2 = 64) 
Cstlword3 = 65) 
{ Np 1 Offset ! 
8 8 or 16 or 24 


The word on the top of the stack 
word at the address computed 


Local variable base B. 


atore Gladal Word 


(stgwordl = 66) 
(stgword2d = 67) 
(stgword3 = 68) 
i Op 4 Offset I 
8 8 or 16 or 24 


The_word on the top of the stack 


word at the address 
global variadle base G. 
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is popped and stored as_ a full 
by adding <Qffset> bytes to the 


is popped and stored as ae full 
by adding <0ffset>. bytes to the 


3-10 


Burroughs Corporation Company Confidential 
Computer Systems Group B10090 Pascal S“Machine 
Santa Barbara Plant P.eSe 2233 2860 (A) 


atore Lexic Level Word 


Cstllwordi = 69) 
Cstltword2 = 70) 
Cstltlword3 = 71) 
! Op 4] Offset 1 tLexic Levelt 1 
8 8 or 16 or 24 8 


The word on the top of the stack is popped and stored as a fult 
word at the address computed by adding <Offset> bytes to DISPLAY 
C[Lexic Level]. 


store Indicect Word 


Cstoreind = 62) 


| Op { 


8 


Tne word on the top of the stack is stored as a full word at the 
address indicated by the top~i word. Both words are popped from 
the stack. 


STORE NON=WORD QPERATORS 


store Real 


Cstorereal = 72) 


oe 


| Op ! 


8 


The real value on the top two of the stack is stored at the 
address indicated by the top~1l words: The real value and the 
address are popped from the stack. ~~ 
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atoce Set 


Cstoreset = 73) 


] Op | Length { 


8 24 


The top 256 bits of the stack is a Set. This set is stored for 
<Length> bits at the address tndicated by the word on the stack 


opelow the set. If any members of the set being stored are 
outside the range of the set being stored into» then a value out 
of range error is reported. Bath the set and the address are 


popped from the stack. 


atore tag 


Cstoretag = 74) 


i OQp tf Variant Length 1 


8 24 


The top of the stack is a tag value. The top7!l item is the 
address of the tag field in which to store tne value. Tne tag is 
stored into the field pointed to by the address for a tength of 5 
bits. The variant part of the record immediatety following the 
tag field is set to undefined for a length of <Variant Length> 
bits. 
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store Unsigned Field 
(storeufieitd = 75) 


| Op | Length I 


8 8 


The word on the top of the stack 


to by the address 
treated as unsigned. 


data is tost when stored 


is reported. 


atore Signed Eileld 


(storesfield = 76) 


! Op 1 Length | 


8 8 


The word on the top of the stack 


to by the address 


treated as signed. Both 
data is lost when stored 


1s reportade 


Copy Structure 


{copystruct = 78) 


! Op 4 Length 


3 24 
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is stored at the field pointed 
topel for <Length> dsits. The value is 
items are popped from the stack. If 
into the field then a value out of range 


is stored at the field pointed 
top"l for <Length> bits. The value is 
items are popped from the stack. If 
into the field then a value out of range 


The structure pointed to by the address on the top of the stack 
is copied to the structure pointed to by the address at top-l. 


<Length> bits ara copied. 


stacke 


doth addresses are popped from the 
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VALIDATION OPERATORS 


Pointer 


(pointer = 59) 


1 Op 1 
9] 
The word on the top of the stack is an address. If it is equaéd 


to the value reserved for a NIL pointer then a oointer error is 
reported. The address is left aon the stack. 


Vaciant 


(variant = 60) 


! Qp f Offset ! fag Set 1 


3 24 24 


The word oan the top of the stack is the address of a variant 
record. <OQffset> is added to this address to give the address of 


the tag field for the variant. If the value of the tag is not a 
member of <Tag Set> then a variant error is reported. The 


original address is left on the stack. 


Range | 
(range = 61) 


i Op t Min tt Max | 


8 24 . 24 


If the value on the top of the stack is less than <Min> or 
greater than <Max> then a value out of range error is- reported. 
The value is teft on the stack. 
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NUMERIC COMPUTATION 


Negate Word 


(negword = 86) 
1! Qp | 
8 


The word on the top of the stack 
minus) vatue is pushed. 


Absolute Value Word 


Cabsword = 161) 
I Op { 
8 
The word on the top of the of the 
aosolute value is pushed. 
2uscessor Word 
Csuccword = 163) 
| QGp 1} 
8 
The word on the top of the stack is 


is popoed and 
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its negated Cunary 


stack is popped and its 


incremented by l. 
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Predecessor Word 


Cpredword = 164) 


| Op ! 


8 


The word on the top of the stack 


Increment wWorcd 
Cincrword = 153) 
j Op I 
8 
The word on the top of the 
points to is tneremented by le 
stack. 
Decrement Word 
Cdecrword = 154) 
H Op j 
8 
The word on the top of the 


points to is decremented by le 


stack. 
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is decremented by 1. 


it 
the 


The word 
from 


stack is an addresSe 
The address is popped 


it 
the 


The word 
from 


stack is an‘ address. 
The address is popped 
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Add Word 
Caddword = 88) 


S716 


Company Confidential 
31000 Pascal S=Machine 
, PeSe 2233 2860 CA) 


| Qp 3 
8 
The top two words are popned and their sum is pushed. Integer 


overflow is checked for. 


aubtract Word 
Csubword = 930) 


i Qp I 


8 


The top two words are popped and their difference is pushed. The 


top word is subtracted from top-l. 


for. 


Multiply Word 
Cmulword = 33) 


1 Op 4 


8 


The top two words are 
Integer overflow is checked for. 


Integer overflow is checked 


product is pushed. 
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Qivide Word 
C{divword = 95) 


i Op | 


8 


The top two words are popped and their quotient is pushed. The 
top“1 word is divided by the top word. If the top word is equal 
to 0 then divide by zero is reported. 


Modulo word 
(modword = 97) 


1 Op | 


3 


The top two words are popped and their remainder is pushed. The 
top7l word is divided by the top word. If the top word is equal 
to 0 then divide oy zero is reported. 


2duare Word 


Csquareword = 144) 


j Op { 


3 


The word on the top of the stack is replaced by its value 
squarede Integer overflow is checked fore 
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Negate Real 


Cnegreal = 87) 


( dp { 


8 
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The reat on the top of the stack is popped and its negated Cunary 


minus) value 1s pushed. 


Absolute Value Real 


Cabsreal = 162) 
J Op 1 
8 
The real on the top of the of the 
absolute value is pushed. 
Add Real 
Caddreal = 89) 
I Op I 
8 
The top two reals are popped and their 


overflow and underflow are checked for. 


Sum 


Stack is popped and its 


is pushed. Real 
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2uQtract Real 
{subreal = 91) 


1 Op | 


8 


The top two reals are popped and their difference is pushede The 
top real is sudtracted from top~1. Real overflow and underflow 
are checked for. 


Mudtinly Beal 
(mulreal = 94) 


| Op 3 


8 


The top two reals are popped and their product is pushed. Real 
overflow and underflow are checked for. 


Divide Real 
Cdivreal = 96) 


i Oo { 
aane ae ae 
8 
The top two reals are popped and their quotient is pushed. The 
top7l reat is divided by the top word. If the top word is equal 
to 0 then divide by zero is. reported. Real overflow and 


underflow are checked for. 
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aauare Real 


(squarereat = 145) 


j Np { 


8 


The real on the top of the stack is reptaced by its value 
squarede Real overfitow end underflow are checked for. 


BOOLEAN COMPUTATION QPERATORS 


Not 
Cnot = 81) 


| 0p | 


8 


The boolean on the top of the stack is complemented. 


And Nord 


Candword = 82) 


{ Op ! 


8 


The two booteans on the top of the stack are popped and are anded 
together. Tne result 1s pushed. 
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Qc Word 


Corword = 84) 


‘ 


1 Op | 


8 


The two booteans on the top of the stack are popped and are ored 
together. The result is oushed. 


SET COMPUTATION QPERATORS 


Union Set 


Cunion = 85) 


i Op 3 
8 
The top two items on the stack are satse They are both pooped 
and ored together producing their union. The resulting set is 


pushed back onto the stack. All of the sets are 256 bits long. 


Intersection Set 


Cintersection = 33) 


§ Op 1 
8 
The top two items on the stack are seatse They are both popped 
ang anded together producing their intersection. The resulting 


set 1S pushed back onto the stacke All of the sets are 256 hits 
Longe 
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set Difference 
Csetdiff = 92) 


| Cp { 


8 


The top two items on the stack are sets. They are both popped 
and the too set is subdtracted from the top7l set. This 
difference is pushed back ontso the stack. All of the sets are 
256 bits long. The difference of two sets A = Bis the members 
of A that are not in Be This operation is performed by 
complementing the set 3 and anding this with the set A. 


Build Set 
C(buildset = 98) 


i Op | 


3 


The top word on the stack is an integer between 0 and 255-6 The 
topcl item is @ sete The integer is popped from the stack and if 
it 1s not in the correct range a value out of range is reported. 
The sat is modified such that it contains the sember 
corresponding to the integer. 
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Build Set Range 


(buildsetrange = 143) 


| Op 1 Reverse { 


8 24 


The top two words on the stack are the ninimum and maximum of a 
range of members to be placed tn a sete The set is the item at 
toop"2. If either of the words are out of the range Q to 255 then 
value out of range is reported. [f <Reverse> is 0» then the top 
word is the maximum and top71 is the minimum. If <Reverse> is I» 
then the top word is the minimum and topel is the maximum. The 
words are papped from tne stack and the set is sedified such that 
it contains the members between minimum and maxitum inclusive. 


RELATIONAL QPERATORS 


Equal Word 
Ceqword = 101) 


i Qp 1 


8 


The two words on the top of the stack are pooped. If the top 
word is equal to top then true is pushed onto the stacks 
otherwise fatse is pushed. 
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Not Equal word 
Cneword = 104) 


| 0p { 


8 


The two words on the top of the stack are popped. If the topcel 
word is not equal to top then true 1s pushed onto the stack» 
otherwise false is pushed. 


Less Ihan Word 
Clsword = 100) 


{ Op ! 


3 


The two words on the top of the stack are popped. If the topn-l 
word is less than top then true is pao onto the stack» 
otherwise false is pushede 


Not Less Iban Wocd 
Cniword = 103) 


| Op H 


8 


The two words on the top of the stack are popped. If the toperl 
word is greater than or equal to top then true is pushed onto the 
stacks» otherwise false is pushed. 
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Greatec Iban Word 
Cgrword = 192) 


i Qp 1 


8 


The two words on the tog of the stack are popped. [f the tope-l 
word 1S greater than top then true is pushed onto the stack» 
otherwise false is pushed. 


Not Greater Than Word 
Cngword = 105) 


| Gp | 


3 


The two words on the top of the stack are popped. If the top-7l 
word is Less than or equal to top then true is pushed onto the 
Stack» otherwise false is pushed. 


Qdd 
Codd = 140) 


! Op | 


8 
/ 


The word on the top of the stack is popped. If the tow order bit 
of the word is li» then trua is pushed» otherwise false is pushad. 
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Equal Real 


Ceqreal = 107) 


{ Op | 


8 


The two reals on the top of the stack are popped. If the tooe-l 
real is equal to top then true is pushed onto the stack» 
otherwise false is pushed. : 


Not fayal Real 
Cnereal = 110) 


{ Op { 


8 


The two reats on the top of the stack are popoded.e If the top-1 
real is not equat to top then true is pushed onto the stacke 
otherwise faise ts pushed. 


Less Ihan Real 
Clsreal = i196) 


| Op 1 


8 


The two reats on the too of the stack are popped. If the tapi 
real is less than top then true is pushed onto the stackr 
otherwise false is pushed. ; 
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Not Less Real 
(ntreatl = 109) 


1 Op | 


8 


The two reals on the top of the stack are popped. If the top-1 
‘real is greater than or equal to top then true 1s pushed oanto the 
stacks» otherwise false is pushed. 


Greater Ihan Real 
Cgrreal = 1038) 


1 Op j , 


8 


The two reals on the top of the stack are popped. If the top-l 
real is greater than top then true is pushed onto the stack» 
otherwise false ts pushed. 


Not Greater Ihan geal 
(ngreai = 111) 


| Op |! 


8 


The two reals on the top of the stack are popped. If the top1 
real is tess than or equal to top then true 1s pushed onto the 
Stacker otherwise faise is pushade . 
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Equal Structure 


Ceqstruct = 117) 


i Op 4 Length 1 


8 24 
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The top two words are addresses of two structures. The addresses 
are popped and the structures gre compared for <Length> bits. If 


the structura pointed to by 


equal to the structure 


pointed to by top then true 1s pushed onto the stack» . otherwise 


false is pushed. 


Not Equal Stucture 


(nestruct = 120) 


{ Oo | Length J 


8 24 


The top two words are addresses of two structures. .The addresses 
are popped and the structures are compared for <Length> bits. If 


the structure pointed to by topel 


is not equal to the structure 


pointed to by top then true is pushed onto the stack» otherwise 


false is pushede 


Less Ihan Qtructucre 


(lsstruct = 116) 


@ 
aaeeemeaewaavwva a aeansaeneveaeae @& 


{ 0p ! Length { 


8 24 


The top two words are addresses of two structures. The addresses 
are popped and the structures are compared for <Length> bits. If 


the structure pointed to by toprl 


than the structure 


pointed to by too then true is pushed onto the-stack» otherwise 


false is pushed. 
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Not Less Ihan Structure 


Cnistruct = 119) 


j Op I Length 1 


8 24 


The top two words are addresses of two structurese The addresses 
are pooped and the structures are compared for <Length> bits. If 
the structure pointed to by top*l is greater than or equat to the 
structure pointed to by top then true is pushed onto the stack» 
otherwise false is pushed. 


Greater [Chan Structure 


Cgrstruct = 118) 


| Qp 4 Length j 


8 24 


The top two words are addresses of two structures. The addresses 
are popnoed and the structures are compared for <Length> bits. If 
the structure pointed to by top“1 is greater than the structure 
pointed to by top then true is pushed onto the stack» otherwise 
false is pushed. : 


Not Greater Ihan gtructure 
(ngstruct = 121) 


1! Op ! Length 1 


8 24 


The top two words are addresses of two structurese The addresses 
are popped and the structures are compared for <Length> bits. If 
the structure pointed to by top7l is less than or equal to the 
structure pointed to dy top then true is pushed onto the stack» 
otherwise false 1s pushed. 
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faual Set 


Ceqset = 112) 


| Op { 


3 


The two sets on the top of the stack are popped and compared. If 
they are equat then true is pushed» otherwise false is pushed. 
The sets are botn 256 bits tong. 


Not Equal get 


Cneset = 114) 


i dp 1 4 


8 


The twe sets an the top of the stack are pooped and compared. I[f 
they are not equal then true 18S pushed» otherwise fatse is 
pushede The sets are both 256 bits long. 


Not Less Ihan Set 
Cniset = 113) 


! dp | 


8 


The two sets on the top of the stack are popped and compared. If 
the topwl set contains the top set then true is pushed» otherwise 
faise is pushed. The sets are both 256 bits long. 
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Not Greater Chan Set 
Cngset = 115) 


i Op 3 


8 
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The two sets on the top of the stack are popped and compared. If 
the toptl set is a subset of the top set then true 1s pushed» 


otnerwise faise is pusned. 


in 2et 
Cinset = 99) 


H Op ls 


8 


The top of the stack is a sete 
is pushed» 


of that set then true 


The sets are both 255 bits Long. 


If the word at toprl is 4a sember 
otherwise false is pushed. Both 


the set and the word are pooped before the result is pushede 


CONVERSION QPERATORS 


Iruncate Real 


(truncreal = 160) 


i! Op | 


8 


The real on the top of 
representing the truncated real 


checked for. 


popped and an integer 
is pushed. 


Integer overflow 1s 
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Round 


Cround = 146) 


{ Op | 


8. 


The real on the too of the stack 1S popped and an integer 
representing the rounded real is pushed. Integer overftow is 
checked for. 


Convert word to Real 


Cconvword = 165) 
{ Qo | 
8 


The word on the too of the stack is popped and its vatue is 
pushed as areat number. 


Convert whord2 to Real 
Cconvword2 = 141) 


| Op 1 
8 
A real is on the too of the stack and a word is at top71e The 
real number is popped and saved. The word is popped and 
converted to ae reat which is then pushed. The reat that was 


saved is then pushed back onto the stack. 
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CONTROL GPERATORS 


JUNO 
(jump = 123) 


~ 
Se eee oe neseewseeesenanaenoeesean @ 2 @ ws @& 


i Op | Disolacement 1 


8 24 


<Displacement> bytes is added to NIP. The NIP ts pointing just 
past the jump ‘op code field before being undated. A jump can 
only branch inside a code segment. . 


False Juno 


Cfalsejump = 124) 


H Op | Displacement | 


8 24 


The boolean on top of the stack is popped. If it is false then 
<Displacement> is added to NIP. If the vatue is trues executian 
continues with the op following the falsejump. 


Case Jugo 


(casejump = 125) 


| Op 1! Min t Max*s Min | Disp 1 «es t Disp ! 


8 24 24 24 24 


The word on the top of the stack is popped. The word is 
normalized to 0O by subtracting <Min>. If the result is negative 
or greater than <Max - Min> then a case error is reported. The 
normalized word is used as an index into the table of <Disp>s. 
The corresponding <Disp> is read and if 0 then a case error is 
reported. If the <Disp> is not QO» then it is added as bytes to 
NIP. NIP is pointing just aft®r <Oisp> before it is modified. 
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Caal 

(call = 128) 

Cpushcall = 127) 

an | Op | Disolacement 1 
8 24. 


The return displacement and segment number are pushed onto the 
stacke NIP» which points just after the call op field» is 
modified by <Displacement> bytes and execution continues there. 
The pushcall operator first pushes STACK.TOP into the memory 
portion of the stack. 


Cail Segment 
{catitseg = 139) 
= 138) 


Cpushcaliseg 


| Op t Segment 1 ODisplacement 1 


8 10 14 


The return displacement and segment number are pushed oanto the 
stack. This op transfers control to another code segment. 
<Segment> is the segment nuszber and <Displacement> is the byte 
offset into that seqment. If the segment is not in memoryr the 
operating system is requested ta bring it ine The pushcallseg 
operator first pushes STACK.TOP into the memory portion of the 
Stacke 
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Enter Procedure we as 7 . 
ae ea is , fc rg aan Wee 
Center = 130) / Bt Aw ¥ etre, o ‘ 
! Op 4 Stack Size % Para Size ft Line ft LL I Var Size ! 
8 (24 4 24 24 24 24 
This ts the first op of every procedure. It constructs a new 
activation record for thét procedure. If there are not at least 
<Stack Size> bytes of memory available between SP and HEAPTOP 
then a stack tLimit error is raported. The lLexic level of the 
calling routine» tocal base (3) of the calling routines SP 
restore value» and <Line> are pushed onto the stack to complete 
the linkage information. <Parm Size> is used to coapute the «SP: 
restore value. <LL> is used to set the new Lexic level. B is 


updated to the base of the new tocal variables. SP is set to 3 + 
<Var Size> bytes or just beyond the variabtes for the evaluation 
stack area. _ 


Exit Procedure 
Cexit = 132) 


{ Op 3 


8 


The display register which corresponds to the lexic levet being 
exited is restored to its value before the call. This value is 
found by searching through the activation records until the first 
record with the same texic tevel is found. The line numbers 8p 
and NIP are restored by retrieving values from the linkage area 
that was duilt when the routine being exited was called. SP is 
set back to its restore value. Execution ‘continues at the point 
following the caite It ts possible that a segment cnange witl he 
made by the exit. 
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Exit Eunctigon 


Cfunectionaxit = 131) 


| Op i 


8 


The same actions that the exit performs are atso done. 
function result is copied to the néw top of the stack. 


Entec Proyran 


Centerprog = 133) 


! Op ! Line i Stack Size i Var Size ! 


8 24 24 24 


The globat activation record is constructed similar 
the enterproc op doese 


Exit Progra 
Cexitprog = 134) 


| 0p ! 


3 


The program is terminated and cantrot is given to the 
system. 
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Call Standard Routine 
Cceatilstd = 135) 
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{ Qp ff Routine Number 1 
8 3 
A standard routine indicated by <Routine Number> is cattled. see 


Section 6 on Standard Routines. 


Function Value 
Cfuncvatue = 122) 


{ Op 1! Length J 


8 24 


An ttem of <Length> bits is pushed onto the stacke This area is 
to be used inside the function for its result. 


MISCELLANEOUS QPERATORS 


Poo 
{pop = 148) 


i Op { Length | 


8 24 


<Length> bits are popped from the stack. 
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Push Stack 


(pushstack = 149) 


{ Qp I 


8 


STACK.TOP is pushed into the memory portion of the stack. 


New Line 


C(newlinei = 150) 
C(newline2 = 151) 
Cnewline3 = 152) 


i Qp t Line Number 1 


B 8 or 16 or 24 


CURRENT.LINE is set to <Line Numoer>. 


New 
(new = 79) 


i Qp Jt Stack Length { Length i 


8 24 24 


The word on the top of the stack is the address of a pointer 
variable. A_new catt on the he of <Length> bits is allocated 
if there is sufficient space available between the heap and the 
Stacke <Stack Length> is used to determine if there is enough 
spacee If there is not» then an error is reported. The address 
is popped from the stack. 
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Nev Initialized 


{(newinic = 80) 


aera naene eee ee enesaaseest ewe oeewesaaeoaeweeoe aoe eaae 


{ vo ae | Stack Length i Length t 


8 24 24 


This op performs the same as new except that the new cell is set 
to undefined. 


Initialize Variables 


C{initvar = 126) 


| Op { $1ze { 


8 24 


The addressable storage of the Local activation record is set to 
undefined for <Size> bytes. 


Construst Eile Oescriotor 
(cfdesc = 136) 


i Op ! Offset 1 File Number 1! Buffer Length t Flags i 


8 24 2h 24 24 


A file descriptor is constructed at <Offset> bytes from Be <File 
Number> and <Buffer Length> (Cbits) are used to initialize the 
buffer. <fFlags> are various booleans that tell what kind of file 
is being handled. Bit G is not used. Bit L means a text file. 
Bit 2 means the file "input”™. Bit 3 means the file “output”. 
The other bits in <Flags> are not used. 
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Text 


(text = 137) 


| Op { 


a2 eww eee : \ 


8 


{ 


The word on the top of the stack is the address of a text file 
' descriptor. The current character offset field in the descriptor 
is read and added to the originat address. This resulting 
address replaces the original address on the top of the stack. 
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STANDARD ROUTINES 


The fotlowing are similar to the operators described in Section 
5 The difference is that each is invoked by the "callstd” 
operator instead of being a specific operator. The vatue given 
for each standard routine is the <Routine Number> field of the 
callstd operator. 


FILE HANDLING ROUTINES 


Get 
(get = Q)- 


The word on the top of the stack is the address of a nonw=text 
file descriptor. It is popped. If the file is not defined or is 
at end of file then an error is reported. The next record in the 
file is read into the buffer portion of the file descriptor. 


Get Text 


Cgettextc = 1) 


The word on the top of the stack is the address of a text file 
descriotor. It is popped. If the file is not defined or is at 
end of file then an error is reported. If the current character 
offset field in the file descriptor is equal to the tast 
character offset» then the next record is read into the file 
buffer and the current character offset is set to 0-<. Otherwise» 
the current character offsat is incremented to point to the next 
character in the current buffer. 
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Put 

(put = 2) 


The word on the top of the stack is the address of a non-text 
file descriptor. It is popped. [f the file is not defined or is 
not at the end of file then an error tis reported. The file 
buffer is written at the next sequential position in the file. 


Put Text 


Cputtext = 3) 


The word on the top of the stack is the address of a text file 
descriptore I[t 1s popped. If the file is not defined or is not 
at the end of file then an error is reported. The current 
character offset is incremented to the next position ttn file 
buffer. If it is equal to the tast position in the buffer then 
the buffer is written as the next record in the file. 


Undate (Deleted) 

{update = 4) 

The word on the top of the stack is the address of a nontext 
file descriptor. It is popped. If the file ts not defined or is 
at the end of file then an error is reported. The buffer is 


written at the current position in the file and the next record 
is then read into the buffer. 


Position | keplaced by. $ eek) 


Cposition = 5) 


The word on the top of the stack is the address of a nonwtext 


file descriptor. The top7l word its the record nuamber (0 
relative) in the file to be positioned to. Both are popped. If 
the file is not defined then an error is reported. The file is 


positioned to the record number and that record is read into the 
file buffer. * 
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fod Qf Eile 

Ceof = 6) 


The word on thea top of the stack is the address of a text or 
nonstext file. It is popped. If the file is not defined then an 
error is reported. If the file is at end of file» then true is 
pushed onto the stacks otherwise false is pushed. 


Eng Of Line 
Ceoln = 7) 


The word on the top of the stack 1s the address of a text file. 
It is popped. If the file is not defined then an error is 
reported. If the current character offset is equal to the last 
character offset» then true is pushed» otherwise false is pushed. 


Reset 


(reset = 8) 


The word on the top of the stack is the address of a nonstext 
file. [t ts popped. If the file is already opens then it is 
closed. The file is opened input/output if the hardware type is 
disk» otherwise it is opened tnnute The first record is read. 


Reset Text 


(reseattaxt = 9) 


The word on the top of the stack is the address of a text filee 
It is popped. If the file is already open» then it is closed. 
The file is opened input/output if the hardware type is disk» 
otherwise it is opened input. Tne first record is read. 


674 


Burroughs Corporation Company Confidential 
Computer Systems Group B1000 Pascal S=Machine 
Santa Barbara Ptant P.Se 2233 28690 CA) 
Rewrite 7 


(rewrite = 10) 


The word on the top of the stack is the address of a nonetext 
file. It is popped. If the file is already opens then it is 
closed. The file is opened new/input/output if the hardware type 
is disk» otherwise it is opened new/output. 


Rewrite Text 

Crewritetext = 11) 

The word on the top of the stack is the address of a text file. 
It 1s popped. If the file is already opens then it is closed. 


The file is opened new/input/output if the hardware type is disk» 
otherwise it 15 opened new/output. 


Read Charactec 
(reade = 12) 


The word an the top of the stack is the address of a text file. 


The word at top-1l is the address of a character variable. They 
are both popped. The current character in the file buffer is 
moved to the character variable. A get operation is then 


performed. 


Bead Ioteger 
Creadi = 13) 


The word on the top of the stack is the address of a text file. 
The word at top7l is the address of an integer variable. They 
are both popped. An integer is read from the file and converted 
to binary and stored in the integer variable. Various errors are 
detected such as invalid integer format» integer overflows» and 
end of filee 
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Write Character 


(writec = 14) 


The word on the top of the stack is the address of a text file. 
The word at top-l is tha minimum numoer of characters to be 
writtene The word at top*2 is the integer value of a character 
to be written. They are all popoed. if the file is not defined 
or iS not at and of fite then an error is reported. The 
character is written in the file buffer preceded by enough btanks 
to equal minimum width. If this many characters would cause the 
buffer to overflows» then an error is reported. 


Write String 


Cwrites = 15) 


The word on the top of the stack is the address of a text file. 
The word at top7l is the tength of the string to be written. The 
word at top 72 is the minimum numder of characters to be written. 
The word at top73 is the address of the string of characters to 
be written. They are all popped. I[f the file is not defined or 
is not at end of file then an error is reported. The character 
string is written to tne file buffer preceded by enough blanks to 
equal minimum width. {If this many characters would cause the 
buffer to overflows then an error is reported. 


Write Integer 


Cwritei = 16) 


The word on the top of the stack is the address of a text file. 
The word at top-i is the minimum number of characters to be 
written. The word at top72 is the integer value of an integer to 
be written. They are alt popped. If the file is not defined or 
is not at,end of file then an error is reported. The is 
converted to character form and is written to the file preceded 
by enough blanks to equal minimum width. If this many characters 
would cause the buffer to overflows» then an error is reported. 


Write Soclean. 
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Read Line 


(readin = 17) 


The word on the top of the stack is the address of a text file. 
It is popped. If tne file is not defined or is at end of file 
then an error is reported. The next record of the file is read 
into the file buffer area. 


Write Line 


Cwritein = 18) 


The word oan the top of the stack is the address of a text file. 
It is popped. If the file ts not defined or is not at end of 
fiite then an error is reported. The file buffer is written as 
the next record in the file. ; 


Page 


Cpage = 13) 


The-word on the top of the stack ts the address of a text (file. 
It is popped. If the file is not defined or is not at end of 
file then an error is reported. A page eject operatian is 
written to the file. 


Retain 


{retain = 20) 


The word on the top of the stack is the address of a text or 
non=text file. [t is popped. If the file is not defined then an 
error is reported. The file 115 chosed and locked into the 
directory. 
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Remove 

(remove = 21) 


The word on the too of the stack is the address of a text or 
nonstext file. It is popped. If the file is not defined then an 
error is reported. fhe file is closed and purged. 


Reassign 


(reassign = 22) 


The word on the top of the stack is the address of a text or 
non=text file. The word at topel is the length in bytes of a 
string that is to be the new external file names Alt three items 
are popped. [f the file is open then an error is reported. The 
external file name is changed to the new name. The string 15 
assumed to be in the proper format for a file title. The string . 
is passed directly to the MCP via_ the change attribute 
communicate. 


Relinguish 


Crelinguisn = 23) 


The word on the top of the stack is the address of a text or 
non-text filee It is poppede The file is closed release. This 
is the default remove operation for internal files. 


Remain 


(remain = 24) 


The word on the top of the stack is the address of a text or 
non@text file. It is popped. fThe file is closed and tacked into 
the directory. This is the default retain operation for external 
files. 
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Write Boolean 
Cwriteb = 25) 


The word on the top of the stack is the address of a taxt file. 
The word at top tl is the minimum number of characters to be 
written. The word at top72 is a boolean value. They are alt 
popped. I[f the file is not defined or is not at end of file then 
an error is reported. If the boolean value is true then the 
string “TRUE™ is writtens otherwise “FALSE” is writtene Either 
string is preceded by enough blanks to equal minimum width. [ f 
this many characters would cause the buffer to overflow» then an 
error is reported. 


NONTEILE ROUTINES 


‘Mack 
Cmark = 26) 


$ 


The word on the top of the stack is the address of a pointer 
variable. The word is ponped and the pointer is set to the value 
in HEAPTOP. 


Release 


(release = 27) 


The word on the top of the stack is the address to which the heap 
is to De cut bdDacke This word is popped and HEAPTOP is set to its 
value. 
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Exa9 


Cexpo = 29) 


The real on the top of the stack is replaced by its expanent 
parte The exponent is left on tne stack as a word. 


Clock 
Cclock = 29) 


The number of tenths of seconds since the beginning of this 
program is pushed onto the stack as a word. 


Date 
(date = 30) 


The word on the top of the stack is the address of an 8 character 
stringe It is popped and the current date is stored in this 
string in the format mm/dd/yye 

7 


Tine 
Ctime = 31) 
The word on the top of the stack is the address of a 10 character 


stringe It is popped and the current time is stored in this 
string in the format hhsamsssete 
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Abort / 


Cabort = 32) 
The program is immediately aborted. 


Communicate 


Ccommunicate = 33) 


The word on the top of the stack is the length of the structure 
to be passed to the communicate. The word at top-l is the 
address of that structure. They are both popped and a 
communicate is done using this structure as the parameter. 


Reinstate Message 


Creinstatemessage = 34) 


The reinstate nessage field in the run structure nucleus is read 
and pushed onto the stack as a word. 


Dispday 
Cdisplay = 35) 


The word on the top of the stack is the tength in bytes of the 
string to be displayed. The word at top7l is the address of that 
stringe They are both popped. The string 1s then displayed on 
the ODOT. 
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APPENDIX A = OPERATORS IN ALPHABETICAL ORDER 


Go Mnemonic 3p Name Qa Code 
absreal Absolute Value Real 162 
absword Absotute Value Word 161 
addreal Add Real 89 
addword Add word 88 
andword And Word &2 
buildset Build Set 98 
buildsetrange Build Set Range 143 
cail Cail 128 
callseag Catt Segment 139 
callstd Cali Standard Routine 135 
casejumo Case Jumo 125 
cfdesc Construct File Oescriptor 136 
convword Convert Word To Real 165 
convword2 Convert word2 To Real 141 
copystruct Copy Structure 78 
decrword Decrement Word 154 
divreal Divide Reat 96 
divword Divide Word 95 
enter Enter Procedure 130 
enterorag Enter Program 133 
eqreal Equal Real 107 
eqset Equat Set 112 
eqstruct Equal Structure | 117 
eqword Equal Word 101 
exit Exit 132 
exitproag Exit Program 134 
falsejump False Jump 124 
fieldi Field 55 
fieltd2 Field 56 
fields Field 57 
functionexit Function Exit 131 
funcvalue Function Value 122 
grreal Greater Than Reat 108 
grstruct Greater Than Structure 118 
grword ~~ Greater Than word 102 
incrword Increment Word 153 
index Index 58 
initvar Initialize Variables 126 
inset In Set 93 
intersection Inters@ction Set 83 
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jump Jump 123 
idcaddr1l Load Constant Address 1 
Ldceaddr2 Load Constant Address 2 
Ldcaddr 3 Load Constant Address 3 
kdcwordl Load Constant Word 25 
tdeword2 Load Constant Word 26 
tdeword3 Load Constant Word 27 
igaddril Load Global Address. 13 
(gaddr2 Load Global Address 14 
lgaddr 3 Load Global Address 15 
ldgwordi Load Global Word 37 
Ldgword2 Load Global Word | 38 
idgword3 Load Globat Word 39 
t(dladdri toad Local Address 7 
(diladdr2 Load Local Address 8 
idladdr 3 Load Local Address 9 
tditaddril Load Lexic Level Address 19 
(ditaddr2 Load Lexic Level Address 20 
idittaddr3 Load Lexic Level Address 21 
Uditlwordi Load Lexic Level Word 43 
idlitword2 “Load Lexic Level Word 44 
tdiitword3 Load Lexic Level Word 45 
idiwordl Load Local Word 31 
tdlword2 Load Locat Word 32 
tdiword3 Load Locat word 33 
loadind Load Indirect Word 49 
lLoadsfield Load Signed Field 51 
loadufieid Load Unsigned Field 50 
lsreal Less Than Real 106 
isstruct Less Than Structure 116 
isword. Less Than Word 100 
aodword Medulo Word 97 
mulreal Multiply Real 94 
mulword Multiply word 93 
negreal Negate Real 87 
negword Negate word 86 
nereat Not Equat Real 110 
neset Not Equal Set : 114 
nestruct Not Equal Structure 120 
new New 79 
newinit New Initialized 80 
newlinel . New Line 150 
newline2 New Line 151 
newline3 New Line 152 
neword Not Equal Word 104 
ngreal Not Greater Than Real 111 
ngset Not Greater Than Set 115 
ngstruct Not Greater Than Structure i2l 
ngword Not Greater Than Word 105 
nireal Not Less Than Real 109 


niset Not Less [han Set 113 
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nistruct Not Less Than Structure 119 
nitword Not Less Than Word . 103 
not Not 81 
odd Qdd 140 
orword Or Word B4 
peaddri Push Constant Address 4 
peaddr2 Push Constant Address 5 
peaddr 3 Push Constant Address 6 
pewordl Push Constant Word 28 . 
peword2 Push Constant Word 29 | 
peword3 Push Constant Word 30 © 
pgaddri Push Global Address 16 
pgaddr2 Push Global Address 17 
pgaddr3 Push Globat Address 18 
pgwordl Push Global Word 40 
pgword2d Push Global Word 41 
pgword3 Push Globat Word 42 
pladdril Push Local Address 10 
pladdr2 Push Local Address 11 
pladdr3 Push Locat Address 12 
plladdrl ‘ Push Lexic Level Address 22 
plLladdr2 Push Lexic Level Address 23 
plladdr 3 Push Lexic Level Address 24 
pltwordl Push Lexic Level word 46 
pilword2 Push Lexic Levelt Word 47 
pllword3 Push Lexic Levet Word 48 
plwordl Push Locat Word 34 
plword2 Push Local Word 35 
ptword3 Push Local Word 36 
pointer Pointer 59 
pop Pap 147 
predword Predecessor Word 164 
pushcail Push Call 127 
pushcallseg Push Catt Segment 138 
pushreal Push Real . 53 
pushreatconst Push Real Constant 142 
pushset Push Set 54 
pushstack Push Stack 149 
pushstruct Push Structure 52 
range Range 61 
round Round 146 
setdi f f Set Difference 92 
squarereal Square Real 145 
squaraword Square Word 144 
stgwordl Store Glooat Word 66 
stgword2 Store Glooal word 67 
stgword3 Store? Glooal word 68 
stilwordi Store Lexic Level Word 69 
stllword2 Store Lexic Level Word 70 


stitword3 Store Lexic Level Word 71 
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stiwordl Store Locat Word 63 
sttword2 Store Local Word 64 
stlword3 Store Local Word 65 
storeind Store Indirect Word 62 
storereal Store Real 72 
storeset Store Set 73 
storesfield Store Signed Field 76 
storetag Store Tag 74 
storeufield Store Unsigned Field 75 
subreal Subtract Real 91 
subword Subtract word 90 
succword Successor Word 163 
text Text 137 
truncreal Truncate Real 160 
unian Union Set 85 


variant Variant 60 
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APPENDIX B - OPERATORS IN OP CODE ORDER 


Op Mnemonic Gp Name Oo Code 
(deaddrl- Load Constant Address 1 
Ldcaddr2 Load Constant Address 2 
idcaddr 3 Load Constant Address 3 
peaddril Push Constant Address 4 
peaddr2 Push Constant Address 5 
peaddr 3 Push Constant Address 6 
(diladdril Load Locai Address 7 
ldladdr2 Load Local Address 8 
Ldladdr3 Load Local Address 9 
ptaddril Push Local Address 10 
ptaddr2 Push Local Address 11 
ptaddr3 Push Local Address 12 
tgaddri Load Global Address 13 
igaddr2 Load Global Address 14 
tgaddr3 Load Global Address 15 
pgaddrl Push Globat Address 16 
pgaddr2 Push Globat Address 17 
pgaddr3 Push Globat Address 18 
tdiladdri Load Lexic Level Address 19 
tditladdr2 Load Lexic Level Address 20 
tditaddr3 Load Lexic Levelt Address 21 
piladdrl Push Lexic Level Address 22 
piladdr2 Push Lexic Level Address 23 
plladdr3 Push Lexic Levelt Address 24 
tdcwordl Load Constant Word 25 
idcword2 Load Constant Word 26 
idcword3 Load Constant Word ef 
pcwordl Push Constant Word 28 
peworded Push Constant Word 29 
pcword3 Push Constant Word : 30 
idiwordl Load Local word 31 
tdlword2 Load Local Word 32 
idtword3 Load Local word 33 
plword1l Push Local word 34 
plword2d Push Local Word 35 
plword3 Push Local word 36 
tdgwordl Load Globat Word 37 
tdgword2 Load Global Word 38 
tdgword3 Load Global Word 39 
pgwordl Push Global Word 40 
pgword2d Push Globdal Word 4l 
pgword3 Push Global Word 42 
tdilwordl Load Lexitc Level Word 43 
tdtiword2 Load Lexic Level word 44 
tdilword3 Load tlexic Level Word 45 
pllwordl Push Lexic Level Word 46 
pitiword2 Push Lexic Level Word 47 
pltword3 Push Lexic Level Word 48 
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Loadind 
toadufield 
Loadsfield 
pushstruct’ 
pushreal 
pushset 
fieldl 
fieltd2 
field3 
index 
pointer 
variant 
range 
storeind 
stlword1 
stlword2d 
stlword3 
stgwordl 
stgword2 
stgword3 
stitwordtl 
stllword2 
sttlword3 
storereal 
storeset 
storetag 
storeufield 
Storesfield 
copystruct 
new 
newinit 
not 
andword 
intersection 
orword 
union 
negword 
negreal 
addword 
addrealt 
suoword 
subreal 
setdi ff 
mulword 
muireal 
divword 
divrealt 
modword 
pbuildset 
inset 
lLsword 
eqword 
grword 

nl word 
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Load Indirect Word 49 
Load Unsigned Fieid 50 
Load Signed Field 51 
Push Structure 52 
Push Real 53 
Push Set 54 
Field 55 
Field 56 
Field 57 
Index 58 
Pointer 59 
Variant. 60 
Range 61 
Store Indirect Word 62 
Store Local Word 63 
Stora Local Word 64 
Store Local Word 65 
Store Global Word 66 
Store Globat Word 67 
Store Global Word 68 
Store Lexic Level Word 69 
Store Lexic Level Word 70 
Stor? Lexic Level Word 71 
Store Real 72 
Store Set 73 
Store Tag 74 
Store Unsigned Field 75 
Store Signed Fietd 76 
Copy Structure 78 
New 79 
New Initiatized 80 
Not 81 
And Word : 82 
Intersection Set 83 
Or Word 84 
Unton Set 85 
Negate Word 86 
Negate Real 97 
Add Word 88 
Add Real B89 
Subtract word 90 
Subtract Real 91 
Set Difference 92 
Multiply Word 93 
Muitioly Real 94 
Divide Word 95 
Divide Real 96 
Medulo Word 97 
Build Set 98 
In Set 99 
Less Than Word 1090 
Equal Word 101 
Greater Than Word 102 
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neword 
ngword 
isreal 
eqreal 
grreal 
nireal 
nereal 
ngreal 
eqset 
niset 
neset 
ngset 
isstruct 
eqstruct 
grstruct 
nistruct 
nestruct 
ngstruct 
funcvatue 
jump 
falsejuap 
casejumnp 
initvar 
pushcall 
cail 
enter 
functionexit 
exit 
enterprog 
exitprog 
callistd 
cfdesc 
text 
pushcallseg 
catlseg 
odd 
convword2 
pushrealconst 
buildsetrange 
Squareword 
squarereal 
round 
pop 
pushstack 
newlinel 
newlined 
newline3 
incrword 
decrword 
truncreal 
‘absword 
adbsreal 
succword 
predword 
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Not Equal Word 
Not Greater Than Word 
Less Than Real 

Equal Real 

Greater Than Real 
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